

10 REM *************************************************************
20 REM * Demo program for fast distortion measurement              *
30 REM *************************************************************
40 CLEAR : CLEAR 1
50 PRINT "[10;10HMaximum THD+N value in %?"
60 INPUT "[10;40H";Number
70 UPL OUT "MMEM:LOAD:STAT 0,'FASTDIST.SAC'"
80 CLEAR : CLEAR 1
90 PRINT "[10;10HHit SPACE to start or repeat measurement - ESC to end"
100 INKEY Q$
110 IF Q$=" " THEN Q$="": GOTO 130
120 IF Q$="" THEN 270 ELSE 100
130 CLEAR : CLEAR 1: UPL OUT "init;*wai"
140 UPL OUT "sens:data?": UPL IN W$: W1=VAL(W$)
150 UPL OUT "sens:data2?": UPL IN W$: W2=VAL(W$)
160 'W1=.0024654: W2=.0148734
170 PRINT "[14;15HTotal Harmonic Dist. + Noise @ 1kHz, deviation 67.5 kHz"
180 PRINT "[16;15HDistortion Channel1 ";USING "##.###";W1;" %"
190 PRINT "[17;15HDistortion Channel2 ";USING "##.###";W2;" %"
200 IF W1>Number OR W2>Number THEN Fail=1 ELSE Fail=0
210 IF Fail>0 THEN
220   SET 2,3: MOVE 250,30: LABEL "FAIL",3: SET 2,15
230 ELSE 
240   SET 2,9: MOVE 250,30: LABEL "PASS",3: SET 2,15
250 ENDIF 
260 GOTO 100
270 CLEAR : CLEAR 1
280 END 
